home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare95 / prog / formula1 / vcform1.z / Field.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-09-08  |  1.3 KB  |  50 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Field"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  12. Option Explicit
  13.  
  14. Public Key As String
  15.  
  16. 'local variable(s) to hold property value(s)
  17. Private mvarName As String 'local copy
  18. 'local variable(s) to hold property value(s)
  19. Private mvarTableName As String 'local copy
  20. Public Property Let TableName(ByVal vData As String)
  21. 'used when assigning a value to the property, on the left side of an assignment.
  22. 'Syntax: X.TableName = 5
  23.     mvarTableName = vData
  24. End Property
  25.  
  26.  
  27. Public Property Get TableName() As String
  28. 'used when retrieving value of a property, on the right side of an assignment.
  29. 'Syntax: Debug.Print X.TableName
  30.     TableName = mvarTableName
  31. End Property
  32.  
  33.  
  34.  
  35. Public Property Let Name(ByVal vData As String)
  36. 'used when assigning a value to the property, on the left side of an assignment.
  37. 'Syntax: X.Name = 5
  38.     mvarName = vData
  39. End Property
  40.  
  41.  
  42. Public Property Get Name() As String
  43. 'used when retrieving value of a property, on the right side of an assignment.
  44. 'Syntax: Debug.Print X.Name
  45.     Name = mvarName
  46. End Property
  47.  
  48.  
  49.  
  50.